From: Lars Magne Ingebrigtsen Date: Fri, 26 Nov 2010 01:27:37 +0000 (+0000) Subject: nnimap.el (nnimap-find-uid-response): The UID is the last element in the list. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5525 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=aa5443136a5eebae180847feaec541f673eadfda;p=emacs.git nnimap.el (nnimap-find-uid-response): The UID is the last element in the list. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 602430ea679..14cdff3efc9 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -6,6 +6,7 @@ (nnimap-request-accept-article): Use the UID returned, if any. (nnimap-request-move-article): Use the UID returned, if any. (nnimap-get-groups): Reimplement to work with folded lines. + (nnimap-find-uid-response): The UID is the last element in the list. 2010-11-25 Katsumi Yamaoka diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 63a1115bd0f..97889bb0a64 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -984,7 +984,7 @@ textual parts.") group message-id))))))))) (defun nnimap-find-uid-response (name list) - (let ((result (nth 2 (nnimap-find-response-element name list)))) + (let ((result (car (last (nnimap-find-response-element name list))))) (and result (string-to-number result))))